home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / megacd1.2 / install_megacd next >
Text File  |  1997-03-27  |  3KB  |  160 lines
  1. ; Installer Script for MegaCD v1.2
  2. ; (c) 1997 PirlAGA - pirlaga@ermes.it
  3. ; (R) 1997 The Spooky Fellows
  4.  
  5.  
  6. (message
  7.     "\nMegaCD v1.2"
  8.     "\nCopyright 1997 by PirlAGA"
  9.         "\npirlaga@ermes.it"
  10.     "\n"
  11.     "\nPublished by"
  12.         "\n.oO The Spooky Fellows Oo."
  13. )
  14.  
  15.  
  16. ; get the dest dir for MegaCD (create it if it does not exist)
  17. (set MCD_dest
  18.     (tackon
  19.         (askdir
  20.             (prompt "Where should MegaCD be installed?\nA drawer named `MegaCD' will be created there.")
  21.             (help @askdir-help)
  22.             (default "SYS:")
  23.         )
  24.         "MegaCD"
  25.     )
  26. )
  27. (makeassign "MCDdest"
  28.     (pathonly MCD_dest)
  29.     (safe)
  30. )
  31. (if (exists "MCDdest:MegaCD")
  32.     (+ 1 1)
  33.     (makedir
  34.         "MCDdest:MegaCD"
  35.         (safe)
  36.     )
  37. )
  38.  
  39. ;We now have a valid destination, so tell Installer where MegaCD will end up
  40. ;so the exit page will be correct.
  41. (set @default-dest MCD_dest)
  42.  
  43. (complete 10)
  44.  
  45. ;Now we can copy files that don't need to be checked
  46.  
  47. (copyfiles
  48.     (source "MegaCD.guide")
  49.     (dest "MCDdest:MegaCD")
  50.     (infos)
  51. )
  52.  
  53. (copyfiles
  54.     (source "MegaCD.guide.info")
  55.     (dest "MCDdest:MegaCD")
  56.     (infos)
  57. )
  58. (complete 20)
  59. (copyfiles
  60.     (source "Filez/MegaCDgui")
  61.     (dest "MCDdest:MegaCD")
  62.     (infos)
  63. )
  64.  
  65. (copyfiles
  66.     (source "Filez/MegaCDgui.info")
  67.     (dest "MCDdest:MegaCD")
  68.     (infos)
  69. )
  70. (complete 30)
  71. (copyfiles
  72.     (source "Filez/MegaCDprefs")
  73.     (dest "Sys:Prefs")
  74.     (infos)
  75. )
  76.  
  77. (copyfiles
  78.     (source "Filez/MegaCDprefs.info")
  79.     (dest "Sys:Prefs")
  80.     (infos)
  81. )
  82.  
  83. ;oh, ask some question to the user..
  84.  
  85. (complete 40)
  86. (set MCDver
  87.     (askchoice
  88.         (prompt "Select your MegaCD version\nAccording to your Free Mem.\nIt will be copied to C:")
  89.         (help @askchoice-help)
  90.         (choices "Min   400 Kb Available"
  91.              "Med   700 Kb Available")
  92.     )
  93. )
  94.  
  95. (set MCDname (cat "Filez/" (select MCDver "Min" "Med") "/MegaCD"))
  96.  
  97. (copyfiles
  98.     (source MCDname)
  99.     (dest "C:")
  100.     (infos)
  101. )
  102.  
  103.  
  104. (complete 60)
  105.  
  106. (set MCDTver
  107.     (askchoice
  108.         (prompt "Select your MegaCDtree version\nAccording to your Free Mem.")
  109.         (help @askchoice-help)
  110.         (choices "Min    700kb Available"
  111.              "Med   1200kb Available"
  112.                          "Max   1700kb Available")
  113.     )
  114. )
  115.  
  116. (set MCDTname (cat "Filez/" (select MCDTver "Min" "Med" "Max") "/MegaCDtree"))
  117.  
  118. (copyfiles
  119.     (source MCDTname)
  120.     (dest "MCDdest:MegaCD")
  121.     (infos)
  122. )
  123.  
  124. (copyfiles
  125.     (source "Filez/MegaCDtree.info")
  126.     (dest "MCDdest:MegaCD")
  127.     (infos)
  128. )
  129.  
  130. (complete 80)
  131.  
  132. ;let's move old preferences where Maxime told me to put them
  133. (if
  134.     (askbool
  135.         (prompt "\n\n\nDo you wish to Move Old Prefs to their new location?")
  136.         (help "\nIf you are upgrading from v1.1, maybe you already have some custom preference files.\n\nLet me move them from ENVARC: to S:")
  137.         (choices "Move" "Do Not Move")
  138.         (default 1)
  139.     )
  140.     (
  141.     (run "copy" "Envarc:MegaCD#? S:")
  142.     (run "delete" "Envarc:MegaCD#?")
  143.     )
  144. )
  145.  
  146. (copyfiles
  147.     (source "Filez/MegaCD.info")
  148.     (dest "MCDdest:")
  149.     (infos)
  150. )
  151.  
  152. ;done with the install
  153. (complete 100)
  154.  
  155. ;cleanup some shit
  156. (makeassign "MCDdest" (safe))
  157.  
  158. ;and get out. Fuck RamJam, TSF Rulez!!
  159. (exit)
  160.